inherited frmReceber: TfrmReceber
  Left = 91
  Top = 103
  Caption = 'T'#237'tulos a Receber'
  ClientHeight = 590
  ClientWidth = 910
  OldCreateOrder = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 553
    Width = 910
  end
  inherited Panel2: TPanel
    Width = 910
    Height = 553
    inherited Panel3: TPanel
      Width = 908
      Caption = 'Titulos a Receber'
      inherited GroupBox1: TGroupBox
        Left = 829
      end
    end
    inherited Panel4: TPanel
      Width = 908
      Height = 511
      inherited SbHints: TStatusBar
        Top = 490
        Width = 900
        Height = 17
      end
      object gbx_titulo: TGroupBox
        Left = 4
        Top = 4
        Width = 900
        Height = 224
        Align = alTop
        Caption = 'Dados do T'#237'tulo'
        TabOrder = 1
        object Label4: TLabel
          Left = 294
          Top = 96
          Width = 50
          Height = 13
          Caption = 'Sub-Conta'
        end
        object Label8: TLabel
          Left = 10
          Top = 58
          Width = 75
          Height = 13
          Caption = 'Cliente/Pessoa:'
        end
        object Label7: TLabel
          Left = 600
          Top = 96
          Width = 90
          Height = 13
          Caption = 'Vendedor/Usu'#225'rio:'
        end
        object Label9: TLabel
          Left = 131
          Top = 16
          Width = 41
          Height = 13
          Caption = 'Empresa'
        end
        object Label1: TLabel
          Left = 9
          Top = 18
          Width = 26
          Height = 13
          Caption = 'Titulo'
        end
        object Label10: TLabel
          Left = 651
          Top = 58
          Width = 33
          Height = 13
          Caption = 'Pedido'
        end
        object Label12: TLabel
          Left = 777
          Top = 58
          Width = 53
          Height = 13
          Caption = 'Nota Fiscal'
        end
        object Label6: TLabel
          Left = 9
          Top = 97
          Width = 28
          Height = 13
          Caption = 'Conta'
        end
        object Label11: TLabel
          Left = 8
          Top = 132
          Width = 66
          Height = 13
          Caption = 'Observa'#231#245'es:'
        end
        object edt_subconta: TDBEdit
          Left = 293
          Top = 110
          Width = 40
          Height = 21
          Hint = 'Informe a subconta'
          CharCase = ecUpperCase
          DataField = 'REC_SUBCONTA'
          DataSource = DtSrc
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 9
          OnExit = edt_subcontaExit
        end
        object edt_pessoa: TDBEdit
          Left = 9
          Top = 72
          Width = 88
          Height = 21
          Hint = 'Pessoa geradora do t'#237'tulo'
          CharCase = ecUpperCase
          DataField = 'REC_PESSOA'
          DataSource = DtSrc
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 3
          OnExit = edt_pessoaExit
        end
        object edt_usuario: TDBEdit
          Left = 600
          Top = 110
          Width = 50
          Height = 21
          Hint = 'Usu'#225'rio'
          CharCase = ecUpperCase
          DataField = 'REC_USUARIO'
          DataSource = DtSrc
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 11
          OnExit = edt_usuarioExit
        end
        object edt_empresa: TDBEdit
          Left = 131
          Top = 32
          Width = 32
          Height = 21
          Hint = 'C'#243'digo da Empresa '
          CharCase = ecUpperCase
          DataField = 'REC_EMPRESA'
          DataSource = DtSrc
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 1
          OnExit = edt_empresaExit
        end
        object stEmpresa: TStaticText
          Left = 188
          Top = 32
          Width = 705
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 16
        end
        object stVendedor: TStaticText
          Left = 674
          Top = 110
          Width = 221
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 14
        end
        object stPessoa: TStaticText
          Left = 120
          Top = 72
          Width = 527
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 15
        end
        object stSubconta: TStaticText
          Left = 356
          Top = 110
          Width = 243
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 17
        end
        object edt_titulo: TDBEdit
          Left = 9
          Top = 32
          Width = 121
          Height = 21
          Hint = 'N'#250'mero do Documento'
          CharCase = ecUpperCase
          DataField = 'REC_TITULO'
          DataSource = DtSrc
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnExit = edt_tituloExit
        end
        object edt_pedido: TDBEdit
          Left = 648
          Top = 72
          Width = 123
          Height = 21
          Hint = 'N'#250'mero do pedido'
          CharCase = ecUpperCase
          DataField = 'REC_PEDIDO'
          DataSource = DtSrc
          ParentShowHint = False
          ShowHint = True
          TabOrder = 5
        end
        object edt_nota: TDBEdit
          Left = 775
          Top = 72
          Width = 121
          Height = 21
          Hint = 'N'#250'mero da Nota Fiscal'
          CharCase = ecUpperCase
          DataField = 'REC_NOTA'
          DataSource = DtSrc
          ParentShowHint = False
          ShowHint = True
          TabOrder = 6
        end
        object edt_conta: TDBEdit
          Left = 8
          Top = 110
          Width = 41
          Height = 21
          Hint = 'C'#243'digo da conta'
          CharCase = ecUpperCase
          DataField = 'REC_CONTA'
          DataSource = DtSrc
          TabOrder = 7
          OnExit = edt_contaExit
        end
        object stContas: TStaticText
          Left = 73
          Top = 110
          Width = 218
          Height = 21
          AutoSize = False
          BorderStyle = sbsSingle
          TabOrder = 18
        end
        object mem_observacoes: TDBMemo
          Left = 8
          Top = 148
          Width = 887
          Height = 69
          Hint = 'Observa'#231#245'es'
          DataField = 'REC_OBSERVACOES'
          DataSource = DtSrc
          ParentShowHint = False
          ShowHint = True
          TabOrder = 13
        end
        object sb_empresa: TBitBtn
          Left = 166
          Top = 32
          Width = 21
          Height = 21
          Hint = 'Consulta empresa'
          Caption = '...'
          TabOrder = 2
          TabStop = False
          OnClick = sb_empresaClick
        end
        object sb_usuario: TBitBtn
          Left = 652
          Top = 110
          Width = 21
          Height = 21
          Hint = 'Consulta vendedor/usu'#225'rio'
          Caption = '...'
          TabOrder = 12
          TabStop = False
          OnClick = sb_usuarioClick
        end
        object sb_conta: TBitBtn
          Left = 51
          Top = 110
          Width = 21
          Height = 21
          Hint = 'Consulta conta'
          Caption = '...'
          TabOrder = 8
          TabStop = False
          OnClick = sb_contaClick
        end
        object sb_subconta: TBitBtn
          Left = 334
          Top = 110
          Width = 21
          Height = 21
          Hint = 'Consulta sub-conta'
          Caption = '...'
          TabOrder = 10
          TabStop = False
          OnClick = sb_subcontaClick
        end
        object sb_pessoa: TBitBtn
          Left = 98
          Top = 72
          Width = 21
          Height = 21
          Hint = 'Consulta cliente/pessoa'
          Caption = '...'
          TabOrder = 4
          TabStop = False
          OnClick = sb_pessoaClick
        end
      end
      object gbx_parcelamentos: TGroupBox
        Left = 4
        Top = 228
        Width = 900
        Height = 262
        Align = alClient
        Caption = 'Dados de Parcelamento'
        TabOrder = 2
        object Panel5: TPanel
          Left = 2
          Top = 72
          Width = 896
          Height = 159
          Align = alClient
          TabOrder = 0
          object StaticText1: TStaticText
            Left = 1
            Top = 1
            Width = 894
            Height = 17
            Align = alTop
            Alignment = taCenter
            AutoSize = False
            BorderStyle = sbsSingle
            Caption = 'Parcelas'
            Color = clSkyBlue
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentColor = False
            ParentFont = False
            TabOrder = 0
          end
          object grid_parcelas: TDBGrid
            Left = 1
            Top = 18
            Width = 894
            Height = 140
            Hint = 'Clique na linha que deseja baixar / alterar'
            TabStop = False
            Align = alClient
            Ctl3D = False
            DataSource = DtSrcLancamentos
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
            ParentCtl3D = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            OnCellClick = grid_parcelasCellClick
            OnDrawColumnCell = grid_parcelasDrawColumnCell
            OnDblClick = grid_parcelasDblClick
            OnKeyDown = grid_parcelasKeyDown
            Columns = <
              item
                Expanded = False
                FieldName = 'REP_PARCELA'
                Title.Caption = 'Parcela'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'REP_VENCIMENTO'
                Title.Caption = 'Vencimento'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'REP_VALOR'
                Title.Caption = 'Valor'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'REP_RECEBIMENTO'
                Title.Caption = 'Pagamento'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'REP_JUROS'
                Title.Caption = 'Juros'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'REP_DESCONTOS'
                Title.Caption = 'Descontos'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'REP_VALOR_RECEBIDO'
                Title.Caption = 'Valor Recebido'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'REP_DTHBAIXA'
                Title.Caption = 'Baixa'
                Visible = True
              end>
          end
        end
        object Panel6: TPanel
          Left = 2
          Top = 15
          Width = 896
          Height = 57
          Align = alTop
          BevelInner = bvLowered
          Ctl3D = True
          ParentCtl3D = False
          TabOrder = 1
          object Label3: TLabel
            Left = 208
            Top = 10
            Width = 61
            Height = 13
            Caption = 'Qt.Parcela(s)'
          end
          object Label5: TLabel
            Left = 93
            Top = 10
            Width = 41
            Height = 13
            Caption = 'Valor R$'
          end
          object Label2: TLabel
            Left = 9
            Top = 10
            Width = 39
            Height = 13
            Caption = 'Emiss'#227'o'
          end
          object Label13: TLabel
            Left = 370
            Top = 10
            Width = 80
            Height = 13
            Caption = 'Venc. da 1'#170' parc'
          end
          object Label14: TLabel
            Left = 287
            Top = 10
            Width = 78
            Height = 13
            Caption = 'Dias entre venc.'
          end
          object edt_parcelas: TDBEdit
            Left = 207
            Top = 24
            Width = 73
            Height = 21
            Hint = 'Quantidade de parcelas'
            CharCase = ecUpperCase
            DataField = 'REC_PARCELAS'
            DataSource = DtSrc
            TabOrder = 2
            OnExit = edt_emissaoExit
          end
          object edt_valor: TDBEdit
            Left = 92
            Top = 24
            Width = 113
            Height = 21
            Hint = 'Valor total'
            CharCase = ecUpperCase
            DataField = 'REC_VALOR'
            DataSource = DtSrc
            TabOrder = 1
            OnExit = edt_emissaoExit
          end
          object edt_emissao: TDBEdit
            Left = 8
            Top = 24
            Width = 81
            Height = 21
            Hint = 'Data da Emiss'#227'o'
            CharCase = ecUpperCase
            DataField = 'REC_EMISSAO'
            DataSource = DtSrc
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            OnExit = edt_emissaoExit
          end
          object edt_intervalodias: TDBEdit
            Left = 286
            Top = 24
            Width = 73
            Height = 21
            Hint = 'Dias entre os vencimentos'
            CharCase = ecUpperCase
            DataField = 'IntervaloDias'
            DataSource = DtSrc
            TabOrder = 3
            OnExit = edt_emissaoExit
          end
          object edt_vencimento: TDBEdit
            Left = 371
            Top = 24
            Width = 79
            Height = 21
            Hint = 'Vencimento da primeira parcela'
            CharCase = ecUpperCase
            DataField = 'Vencimento'
            DataSource = DtSrc
            TabOrder = 4
            OnExit = edt_emissaoExit
          end
        end
        object Panel7: TPanel
          Left = 2
          Top = 231
          Width = 896
          Height = 29
          Align = alBottom
          BevelInner = bvLowered
          TabOrder = 2
          object BitBaixa: TBitBtn
            Left = 5
            Top = 2
            Width = 75
            Height = 25
            Hint = ' Baixa lancamento de cart'#227'o de cr'#233'dito '
            Caption = '&Baixa'
            Enabled = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            OnClick = BitBaixaClick
            Glyph.Data = {
              DE010000424DDE01000000000000760000002800000024000000120000000100
              0400000000006801000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
              3333333333333333333333330000333333333333333333333333F33333333333
              00003333344333333333333333388F3333333333000033334224333333333333
              338338F3333333330000333422224333333333333833338F3333333300003342
              222224333333333383333338F3333333000034222A22224333333338F338F333
              8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
              33333338F83338F338F33333000033A33333A222433333338333338F338F3333
              0000333333333A222433333333333338F338F33300003333333333A222433333
              333333338F338F33000033333333333A222433333333333338F338F300003333
              33333333A222433333333333338F338F00003333333333333A22433333333333
              3338F38F000033333333333333A223333333333333338F830000333333333333
              333A333333333333333338330000333333333333333333333333333333333333
              0000}
            NumGlyphs = 2
          end
          object BitEstorna: TBitBtn
            Left = 80
            Top = 2
            Width = 75
            Height = 25
            Hint = ' Estorna lancamento de cart'#227'o de Cr'#233'dito '
            Caption = '&Estorna'
            Enabled = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            OnClick = BitEstornaClick
            Glyph.Data = {
              DE010000424DDE01000000000000760000002800000024000000120000000100
              0400000000006801000000000000000000001000000000000000000000000000
              80000080000000808000800000008000800080800000C0C0C000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
              33333333333F8888883F33330000324334222222443333388F3833333388F333
              000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
              F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
              223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
              3338888300003AAAAAAA33333333333888888833333333330000333333333333
              333333333333333333FFFFFF000033333333333344444433FFFF333333888888
              00003A444333333A22222438888F333338F3333800003A2243333333A2222438
              F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
              22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
              33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
              3333333333338888883333330000333333333333333333333333333333333333
              0000}
            NumGlyphs = 2
          end
          object btnEditar: TBitBtn
            Left = 155
            Top = 2
            Width = 75
            Height = 25
            Hint = 'Altera o registro selecionado'
            Caption = 'Editar'
            Enabled = False
            TabOrder = 2
            OnClick = btnEditarClick
            Glyph.Data = {
              76010000424D7601000000000000760000002800000020000000100000000100
              04000000000000010000130B0000130B00001000000000000000000000000000
              800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
              333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333
              3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000
              B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0
              33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000
              000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8
              033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333
              BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333
              33B33733333773333373B333333B3333333B7333333733333337}
            NumGlyphs = 2
          end
          object btnImprimir: TBitBtn
            Left = 230
            Top = 2
            Width = 92
            Height = 25
            Hint = 'Imprime o registro selecionado'
            Caption = 'Imprimir Parcela'
            Enabled = False
            TabOrder = 3
            OnClick = btnImprimirClick
          end
          object btnImprimirTudo: TBitBtn
            Left = 322
            Top = 2
            Width = 91
            Height = 25
            Hint = 'Imprime todos os registros'
            Caption = 'Carnet - Imprimir'
            Enabled = False
            TabOrder = 4
            OnClick = btnImprimirTudoClick
          end
        end
      end
    end
  end
  inherited DtSrc: TDataSource
    AutoEdit = False
    DataSet = CDS_Receber
    Left = 519
    Top = 384
  end
  object DtSrcLancamentos: TDataSource
    AutoEdit = False
    DataSet = SQLC_RecParcelas
    Left = 520
    Top = 297
  end
  object SQLC_RecParcelas: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftUnknown
        Name = 'REP_IDFTITULO'
        ParamType = ptUnknown
      end>
    ProviderName = 'Dsp_Parcelas'
    AfterClose = SQLC_RecParcelasAfterClose
    AfterInsert = SQLC_RecParcelasAfterInsert
    AfterEdit = SQLC_RecParcelasAfterEdit
    AfterPost = SQLC_RecParcelasAfterPost
    AfterCancel = SQLC_RecParcelasAfterCancel
    BeforeDelete = SQLC_RecParcelasBeforeDelete
    AfterDelete = SQLC_RecParcelasAfterDelete
    AfterScroll = SQLC_RecParcelasAfterScroll
    Left = 591
    Top = 277
    object SQLC_RecParcelasREP_IDFTITULO: TIntegerField
      FieldName = 'REP_IDFTITULO'
      Required = True
    end
    object SQLC_RecParcelasREP_PARCELA: TIntegerField
      FieldName = 'REP_PARCELA'
      Required = True
    end
    object SQLC_RecParcelasREP_VENCIMENTO: TDateField
      FieldName = 'REP_VENCIMENTO'
      Required = True
    end
    object SQLC_RecParcelasREP_VALOR: TFloatField
      FieldName = 'REP_VALOR'
      Required = True
      DisplayFormat = ',0.00'
      EditFormat = '0.00'
      currency = True
    end
    object SQLC_RecParcelasREP_RECEBIMENTO: TDateField
      FieldName = 'REP_RECEBIMENTO'
    end
    object SQLC_RecParcelasREP_VALOR_RECEBIDO: TFloatField
      FieldName = 'REP_VALOR_RECEBIDO'
      DisplayFormat = ',0.00'
      EditFormat = '0.00'
      currency = True
    end
    object SQLC_RecParcelasREP_FORMAPGTO: TSmallintField
      FieldName = 'REP_FORMAPGTO'
    end
    object SQLC_RecParcelasREP_BANCOLANIDF: TIntegerField
      FieldName = 'REP_BANCOLANIDF'
    end
    object SQLC_RecParcelasREP_JUROS: TFloatField
      FieldName = 'REP_JUROS'
      DisplayFormat = ',0.00'
      EditFormat = '0.00'
      currency = True
    end
    object SQLC_RecParcelasREP_DESCONTOS: TFloatField
      FieldName = 'REP_DESCONTOS'
      DisplayFormat = ',0.00'
      EditFormat = '0.00'
      currency = True
    end
    object SQLC_RecParcelasREP_USRBAIXA: TStringField
      FieldName = 'REP_USRBAIXA'
      Size = 3
    end
    object SQLC_RecParcelasREP_DTHBAIXA: TDateTimeField
      FieldName = 'REP_DTHBAIXA'
    end
    object SQLC_RecParcelasREP_DTHINCLUSAO: TDateTimeField
      FieldName = 'REP_DTHINCLUSAO'
    end
    object SQLC_RecParcelasREP_USRINCLUSAO: TStringField
      FieldName = 'REP_USRINCLUSAO'
      Required = True
      Size = 3
    end
    object SQLC_RecParcelasREP_USRALTERACAO: TStringField
      FieldName = 'REP_USRALTERACAO'
      Required = True
      Size = 3
    end
    object SQLC_RecParcelasREP_DTHALTERACAO: TDateTimeField
      FieldName = 'REP_DTHALTERACAO'
    end
    object SQLC_RecParcelasREP_CAIXALANIDF: TIntegerField
      FieldName = 'REP_CAIXALANIDF'
    end
    object SQLC_RecParcelasREP_NOSSO_NUMERO: TFloatField
      FieldName = 'REP_NOSSO_NUMERO'
    end
    object SQLC_RecParcelasREP_OBSERVACOES: TMemoField
      FieldName = 'REP_OBSERVACOES'
      BlobType = ftMemo
    end
  end
  object Z_RecParcelas: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    UpdateObject = ZUpdateParcelas
    SQL.Strings = (
      'SELECT * '
      'FROM RECEBER_TITULOS_PARCELAS '
      'WHERE REP_IDFTITULO = :REP_IDFTITULO')
    Params = <
      item
        DataType = ftUnknown
        Name = 'REP_IDFTITULO'
        ParamType = ptUnknown
      end>
    Left = 767
    Top = 293
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'REP_IDFTITULO'
        ParamType = ptUnknown
      end>
  end
  object Dsp_Parcelas: TDataSetProvider
    DataSet = Z_RecParcelas
    Left = 663
    Top = 293
  end
  object ZUpdateParcelas: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM RECEBER_TITULOS_PARCELAS'
      'WHERE'
      
        '  RECEBER_TITULOS_PARCELAS.REP_IDFTITULO = :OLD_REP_IDFTITULO AN' +
        'D'
      '  RECEBER_TITULOS_PARCELAS.REP_PARCELA = :OLD_REP_PARCELA')
    InsertSQL.Strings = (
      'INSERT INTO RECEBER_TITULOS_PARCELAS'
      
        '  (REP_IDFTITULO, REP_PARCELA, REP_VENCIMENTO, REP_VALOR, REP_RE' +
        'CEBIMENTO, '
      
        '   REP_VALOR_RECEBIDO, REP_FORMAPGTO, REP_BANCOLANIDF, REP_JUROS' +
        ', REP_DESCONTOS, '
      
        '   REP_USRBAIXA, REP_DTHBAIXA, REP_USRINCLUSAO, REP_DTHINCLUSAO,' +
        ' REP_USRALTERACAO, '
      
        '   REP_DTHALTERACAO, REP_CAIXALANIDF, REP_NOSSO_NUMERO,REP_OBSER' +
        'VACOES)'
      'VALUES'
      
        '  (:REP_IDFTITULO, :REP_PARCELA, :REP_VENCIMENTO, :REP_VALOR, :R' +
        'EP_RECEBIMENTO, '
      
        '   :REP_VALOR_RECEBIDO, :REP_FORMAPGTO, :REP_BANCOLANIDF, :REP_J' +
        'UROS, :REP_DESCONTOS, '
      
        '   :REP_USRBAIXA, :REP_DTHBAIXA, :REP_USRINCLUSAO, :REP_DTHINCLU' +
        'SAO, :REP_USRALTERACAO, '
      
        '   :REP_DTHALTERACAO, :REP_CAIXALANIDF, :REP_NOSSO_NUMERO,:REP_O' +
        'BSERVACOES)')
    ModifySQL.Strings = (
      'UPDATE RECEBER_TITULOS_PARCELAS SET'
      '  REP_IDFTITULO = :REP_IDFTITULO,'
      '  REP_PARCELA = :REP_PARCELA,'
      '  REP_VENCIMENTO = :REP_VENCIMENTO,'
      '  REP_VALOR = :REP_VALOR,'
      '  REP_RECEBIMENTO = :REP_RECEBIMENTO,'
      '  REP_VALOR_RECEBIDO = :REP_VALOR_RECEBIDO,'
      '  REP_FORMAPGTO = :REP_FORMAPGTO,'
      '  REP_BANCOLANIDF = :REP_BANCOLANIDF,'
      '  REP_JUROS = :REP_JUROS,'
      '  REP_DESCONTOS = :REP_DESCONTOS,'
      '  REP_USRBAIXA = :REP_USRBAIXA,'
      '  REP_DTHBAIXA = :REP_DTHBAIXA,'
      '  REP_USRINCLUSAO = :REP_USRINCLUSAO,'
      '  REP_DTHINCLUSAO = :REP_DTHINCLUSAO,'
      '  REP_USRALTERACAO = :REP_USRALTERACAO,'
      '  REP_DTHALTERACAO = :REP_DTHALTERACAO,'
      '  REP_CAIXALANIDF = :REP_CAIXALANIDF,'
      '  REP_NOSSO_NUMERO = :REP_NOSSO_NUMERO,'
      '  REP_OBSERVACOES=:REP_OBSERVACOES'
      'WHERE'
      '  RECEBER_TITULOS_PARCELAS.REP_IDFTITULO = '
      ':OLD_REP_IDFTITULO AND'
      '  RECEBER_TITULOS_PARCELAS.REP_PARCELA = '
      ':OLD_REP_PARCELA')
    UseSequenceFieldForRefreshSQL = False
    Left = 839
    Top = 293
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'REP_IDFTITULO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REP_PARCELA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REP_VENCIMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REP_VALOR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REP_RECEBIMENTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REP_VALOR_RECEBIDO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REP_FORMAPGTO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REP_BANCOLANIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REP_JUROS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REP_DESCONTOS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REP_USRBAIXA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REP_DTHBAIXA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REP_USRINCLUSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REP_DTHINCLUSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REP_USRALTERACAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REP_DTHALTERACAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REP_CAIXALANIDF'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REP_NOSSO_NUMERO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REP_OBSERVACOES'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_REP_IDFTITULO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_REP_PARCELA'
        ParamType = ptUnknown
      end>
  end
  object CDS_Receber: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftUnknown
        Name = 'REC_CODIGO'
        ParamType = ptUnknown
      end>
    ProviderName = 'DSP_Receber'
    AfterOpen = CDS_ReceberAfterOpen
    BeforeClose = CDS_ReceberBeforeClose
    Left = 591
    Top = 325
    object CDS_ReceberREC_IDFTITULO: TIntegerField
      FieldName = 'REC_IDFTITULO'
      Required = True
    end
    object CDS_ReceberREC_TITULO: TStringField
      FieldName = 'REC_TITULO'
      Required = True
      Size = 13
    end
    object CDS_ReceberREC_EMPRESA: TIntegerField
      FieldName = 'REC_EMPRESA'
      Required = True
    end
    object CDS_ReceberREC_PESSOA: TIntegerField
      FieldName = 'REC_PESSOA'
      Required = True
    end
    object CDS_ReceberREC_EMISSAO: TDateField
      FieldName = 'REC_EMISSAO'
      Required = True
    end
    object CDS_ReceberREC_VALOR: TFloatField
      FieldName = 'REC_VALOR'
      Required = True
      DisplayFormat = ',0.00'
      EditFormat = '0.00'
      currency = True
    end
    object CDS_ReceberREC_PARCELAS: TSmallintField
      FieldName = 'REC_PARCELAS'
      Required = True
    end
    object CDS_ReceberREC_USUARIO: TStringField
      FieldName = 'REC_USUARIO'
      Required = True
      Size = 3
    end
    object CDS_ReceberREC_OBSERVACOES: TMemoField
      FieldName = 'REC_OBSERVACOES'
      BlobType = ftMemo
    end
    object CDS_ReceberREC_PEDIDO: TStringField
      FieldName = 'REC_PEDIDO'
      Size = 13
    end
    object CDS_ReceberREC_NOTA: TStringField
      FieldName = 'REC_NOTA'
      Size = 13
    end
    object CDS_ReceberREC_CONTA: TStringField
      FieldName = 'REC_CONTA'
      Required = True
      Size = 3
    end
    object CDS_ReceberREC_SUBCONTA: TStringField
      FieldName = 'REC_SUBCONTA'
      Required = True
      Size = 3
    end
    object CDS_ReceberREC_USRINCLUSAO: TStringField
      FieldName = 'REC_USRINCLUSAO'
      Required = True
      Size = 3
    end
    object CDS_ReceberIntervaloDias: TIntegerField
      FieldKind = fkInternalCalc
      FieldName = 'IntervaloDias'
    end
    object CDS_ReceberVencimento: TDateField
      FieldKind = fkInternalCalc
      FieldName = 'Vencimento'
    end
    object CDS_ReceberREC_DTHINCLUSAO: TDateTimeField
      FieldName = 'REC_DTHINCLUSAO'
    end
    object CDS_ReceberREC_USRALTERACAO: TStringField
      FieldName = 'REC_USRALTERACAO'
      Required = True
      Size = 3
    end
    object CDS_ReceberREC_DTHALTERACAO: TDateTimeField
      FieldName = 'REC_DTHALTERACAO'
    end
  end
  object DSP_Receber: TDataSetProvider
    DataSet = ZReceber
    Left = 703
    Top = 373
  end
  object ZReceber: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    UpdateObject = ZUpdateReceber
    SQL.Strings = (
      'select * from RECEBER_TITULOS where REC_IDFTITULO = :REC_CODIGO')
    Params = <
      item
        DataType = ftUnknown
        Name = 'REC_CODIGO'
        ParamType = ptUnknown
      end>
    Left = 775
    Top = 373
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'REC_CODIGO'
        ParamType = ptUnknown
      end>
  end
  object ZUpdateReceber: TZUpdateSQL
    DeleteSQL.Strings = (
      'DELETE FROM RECEBER_TITULOS'
      'WHERE'
      '  RECEBER_TITULOS.REC_IDFTITULO = :OLD_REC_IDFTITULO')
    InsertSQL.Strings = (
      'INSERT INTO RECEBER_TITULOS'
      
        '  (REC_IDFTITULO, REC_TITULO, REC_EMPRESA, REC_PESSOA, REC_EMISS' +
        'AO, REC_VALOR, '
      
        '   REC_PARCELAS, REC_USUARIO, REC_OBSERVACOES, REC_PEDIDO, REC_N' +
        'OTA, REC_CONTA, '
      
        '   REC_SUBCONTA, REC_USRINCLUSAO, REC_DTHINCLUSAO, REC_USRALTERA' +
        'CAO, REC_DTHALTERACAO)'
      'VALUES'
      
        '  (:REC_IDFTITULO, :REC_TITULO, :REC_EMPRESA, :REC_PESSOA, :REC_' +
        'EMISSAO, '
      
        '   :REC_VALOR, :REC_PARCELAS, :REC_USUARIO, :REC_OBSERVACOES, :R' +
        'EC_PEDIDO, '
      
        '   :REC_NOTA, :REC_CONTA, :REC_SUBCONTA, :REC_USRINCLUSAO, :REC_' +
        'DTHINCLUSAO, '
      '   :REC_USRALTERACAO, :REC_DTHALTERACAO)')
    ModifySQL.Strings = (
      'UPDATE RECEBER_TITULOS SET'
      '  REC_TITULO = :REC_TITULO,'
      '  REC_EMPRESA = :REC_EMPRESA,'
      '  REC_PESSOA = :REC_PESSOA,'
      '  REC_EMISSAO = :REC_EMISSAO,'
      '  REC_VALOR = :REC_VALOR,'
      '  REC_PARCELAS = :REC_PARCELAS,'
      '  REC_USUARIO = :REC_USUARIO,'
      '  REC_OBSERVACOES = :REC_OBSERVACOES,'
      '  REC_PEDIDO = :REC_PEDIDO,'
      '  REC_NOTA = :REC_NOTA,'
      '  REC_CONTA = :REC_CONTA,'
      '  REC_SUBCONTA = :REC_SUBCONTA,'
      '  REC_USRINCLUSAO = :REC_USRINCLUSAO,'
      '  REC_DTHINCLUSAO = :REC_DTHINCLUSAO,'
      '  REC_USRALTERACAO = :REC_USRALTERACAO,'
      '  REC_DTHALTERACAO = :REC_DTHALTERACAO'
      'WHERE'
      '  RECEBER_TITULOS.REC_IDFTITULO = :OLD_REC_IDFTITULO')
    UseSequenceFieldForRefreshSQL = False
    Left = 839
    Top = 373
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'REC_TITULO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REC_EMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REC_PESSOA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REC_EMISSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REC_VALOR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REC_PARCELAS'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REC_USUARIO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REC_OBSERVACOES'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REC_PEDIDO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REC_NOTA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REC_CONTA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REC_SUBCONTA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REC_USRINCLUSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REC_DTHINCLUSAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REC_USRALTERACAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REC_DTHALTERACAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'OLD_REC_IDFTITULO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'REC_IDFTITULO'
        ParamType = ptUnknown
      end>
  end
end
